home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / a-f / executive_v1.20 / install / install < prev    next >
Text File  |  1995-10-22  |  39KB  |  788 lines

  1. ;
  2. ; Executive Installation script
  3. ;
  4. ; Copyright © 1995 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: Install 1.17 1995/10/11 22:41:46 petrin Exp petrin $
  7. ;
  8. ; Languages available:
  9. ;   English (default)
  10. ;   Suomi
  11. ;
  12.  
  13. ; =======================================================================
  14. ;   Set up some variables
  15. ; =======================================================================
  16.  
  17. (set OSVersion        (/ (getversion) 65536))
  18. (set WBVersion        (/ (getversion "libs:version.library") 65536))
  19. (set AGVersion        (/ (getversion "libs:amigaguide.library") 65536))
  20. (set TRUE        1)
  21. (set FALSE        0)
  22. (set cpu        (database "cpu"))
  23. (set startup_added    FALSE)
  24. (set key_installed    FALSE)
  25. (set update        FALSE)
  26. (set prefs_written    FALSE)
  27.  
  28. ; =======================================================================
  29. ;   Set up localized strings
  30. ; =======================================================================
  31.  
  32. ;
  33. ; ===== English
  34. ;
  35. (set #kickstart37 "Sorry, but Executive requires AmigaDos 2.04.")
  36. ; This is shown when you press help when the Installer window opens.
  37. ; Make sure the strings are centered.
  38. (set #welcome "        Welcome to the Executive installation\n\n           Copyright © 1995 Petri Nordlund.\n                 All rights reserved.\n")
  39. (set #begin_install "\nYou're about to install Executive. If you need any help, just press the HELP-button.\n\nYou can always abort the installation and the installed parts will be safely deleted.\n\nIf you decide to uninstall Executive, there's a program available for this purpose, so go ahead and try this program, I'm sure you'll like it!")
  40. (set #dir_prompt "Where should Executive be installed? A drawer named `Executive' will be created there. If you're updating from a previous version, select the directory containing the Executive drawer.")
  41. (set #dir_help "A good place to install Executive is your WORK: partition or if it isn't available, the SYS: partition.\n\nIf you're updating from a previous version, you must select the directory where the Executive drawer is, not the Executive drawer. For example WORK: but not WORK:Executive/.\n\n")
  42. (set #extract_progs "Extracting programs")
  43. (set #create_020 "Creating 68020+ versions of programs")
  44. (set #which-language "Which languages should be installed?\n\nEnglish is built in.")
  45. (set #which-help "A locale catalog will be installed to your system and all Executive programs will use the language you choose. If English is your native language, you don't have to install any locale catalogs because English has been built in the programs.\n\n")
  46. (set #installing_docs "Installing documentation")
  47. (set #install_sysinfo "\nDo you want to install sysinfo.library developer materials?\n\nSysinfo is a shared library that provides access for third party programmers to Executive features. If you're not a programmer, then there's no need to install the developer materials.")
  48. (set #sysinfo_help "If you're not sure what sysinfo.library is, then don't install it, you probably won't need it.\n\n")
  49. (set #install_yes "Yes, install")
  50. (set #install_no "No, don't install")
  51. (set #installing_icons "Installing icons")
  52. (set #what_icons "What kind of icons you want to install?\n\nMagicWB Copyright © 1992-94 Martin Huttenloher")
  53. (set #ic_none "No icons")
  54. (set #ic_nnl "Normal  med-res (pixel aspect 2:1)")
  55. (set #ic_nl  "Normal  hi-res  (pixel aspect 1:1)")
  56. (set #ic_mnl "MagicWB med-res (pixel aspect 2:1)")
  57. (set #ic_ml  "MagicWB hi-res  (pixel aspect 1:1)")
  58. (set #what_iconshelp "There are four different styles of icons available.\n\nNormal med-res icons are ment for Workbench screen of size 640x256 or similar.\n\nNormal hi-res icons are ment for 640x512 or similar sized Workbench screens.\n\nIf you're using MagicWB choose one of the MagicWB-style icon sets.\n\n")
  59. (set #addcmds "The following instructions will be added to your \"S:User-Startup\" file so that your system will be properly configured to use Executive.\n\nPath %s Add\nRun <NIL: >NIL: %s/Executive")
  60. (set #addhelp "This will add some commands to your S:User-Startup file to allow the correct operation of Executive. Executive will be started every time you boot your Amiga.\n\n")
  61. (set #installing_key "Installing keyfile")
  62. (set #doc_format "Please select documentation format:")
  63. (set #df_1 "AmigaGuide")
  64. (set #df_2 "ASCII text (No online help available)")
  65. (set #doc_formathelp "Documentation is available in different formats. You probably want to choose AmigaGuide format because it let's you use online help accessible from all Executive programs.\n\n")
  66. (set #conv_doc "Converting documentation")
  67. (set #uninstall "\n\n\n\nIf you want to uninstall Executive, use the supplied uninstall program,\nit will make sure that no trace of Executive is left to your system. Files\nthat don't belong to Executive aren't deleted.\n\n\n\n")
  68. (set #thanks "\nThank you for installing Executive.\n\nNow you must reboot the machine to start the Executive server.\n\nPLEASE read the documentation, at least the Common problems-section.")
  69. (set #remcmds "\nCommands added to your \"S:User-Startup\" file will now be removed.")
  70. (set #remhelp "The installation program has added commands to your \"S:User-Startup\" file. These will now be removed, nothing else will be deleted or changed.\n\n")
  71. (set #userstartup "; Executive installation was aborted.")
  72. (set #abort_remove "Installation aborted. Do you want to delete the files that were installed?\n\nIf you are updating an existing version of Executive, it may have already been overwritten, so you must reinstall it.\n\n")
  73. (set #abort_rem_yes "Yes, remove")
  74. (set #abort_rem_no "No")
  75. (set #doc_askansi "\nDo you want to use ANSI format codes in the ASCII documentation?")
  76. (set #ansi_yes "Yes, use ANSI")
  77. (set #ansi_no "No, don't use ANSI")
  78.  
  79. ;
  80. ; ===== Suomi
  81. ;
  82. (if (= @language "Suomi")
  83. (
  84. (set #kickstart37 "Executive vaatii toimiakseen AmigaDos 2.04:n.")
  85. (set #welcome "                  Executiven asennus\n\n           Copyright © 1995 Petri Nordlund.\n                 All rights reserved.\n")
  86. (set #begin_install "\nOlet asentamassa koneeseesi Executivea. Jos tarvitset apua, paina HELP-näppäintä.\n\nVoit keskeyttää asennuksen koska tahansa ja jo asennetut osat poistetaan turvallisesti.\n\nJos haluat myöhemmin poistaa Executiven koneestasi, sitä varten on mukana erityinen UnInstall-ohjelma. Joten ei muuta kuin asenna Executive ja kokeile sitä, pidät siitä varmasti!")
  87. (set #dir_prompt "Mihin Executive asennetaan? Asennusohjelma luo hakemiston nimeltä `Executive´ ja asentaa tiedostot tähän hakemistoon. Jos olet päivittämässä vanhaa versiota, valitse se hakemisto joka sisältää `Executive´-hakemiston.")
  88. (set #dir_help "Executive kannattaa asentaa esin WORK: partitiolle tai jos sitä ei ole, niin SYS: partitiolle.\n\nJos päivität vanhaa versiota, valitse se hakemisto jossa `Executive´-niminen hakemisto on. Eli esim. WORK: mutta ei WORK:Executive/.\n\n")
  89. (set #extract_progs "Puran ohjelmia")
  90. (set #create_020 "Teen ohjelmista 68020+ versioita")
  91. (set #which-language "Mitä kieliä haluat asentaa?\n\nEnglanti on sisäänrakennettu.")
  92. (set #which-help "Executiven ohjelmat käyttävät kielitiedostoa joka asennetaan järjestelmääsi. Tämä mahdollistaa ohjelmien käyttämisen haluamillasi kielillä.\n\n")
  93. (set #installing_docs "Asennan ohjeet")
  94. (set #install_sysinfo "\nHaluatko asentaa sysinfo.library-kirjaston ohjelmoijille tarkoitetun materiaalin?\n\nSysinfo on kirjasto joka mahdollistaa Executiven ominaisuuksien käyttämisen muista ohjelmista. Jos et ole ohjelmoija niin tätä kirjastoa ei kannata asentaa.")
  95. (set #sysinfo_help "Jos et ole varma että mikä sysinfo.library on, niin tuskin tarvitset sitä.")
  96. (set #install_yes "Kyllä, asenna")
  97. (set #install_no "Ei, älä asenna")
  98. (set #installing_icons "Asennan kuvakkeita")
  99. (set #what_icons "Minkälaiset kuvakkeet haluat asentaa?\n\nMagicWB Copyright © 1992-94 Martin Huttenloher")
  100. (set #ic_none "Ei kuvakkeita")
  101. (set #ic_nnl "Normaali med-res (suhde 2:1)")
  102. (set #ic_nl  "Normaali hi-res  (suhde 1:1)")
  103. (set #ic_mnl "MagicWB  med-res (suhde 2:1)")
  104. (set #ic_ml  "MagicWB  hi-res  (suhde 1:1)")
  105. (set #what_iconshelp "Kuvakkeita on neljää eri tyyliä.\n\nNormaalit med-res kuvakkeet on tarkoitettu Workbench-näytölle jonka koko on 640x256 tai vastaava.\n\nNormaalit hi-res kuvakkeet on tarkoitettu 640x512 kokoiselle tai vastaavalle Workbench-näytölle.\n\nJos käytät MagicWB:tä, valitse jompi kumpi MagicWB-tyyppisistä kuvakkeista.\n\n")
  106. (set #addcmds "Nämä komennot lisätään \"S:User-Startup\" tiedostoon jotta koneesi voi käyttää Executivea.\n\nPath %s Add\nRun <NIL: >NIL: %s/Executive")
  107. (set #addhelp "S:User-Startup tiedostoon pitää lisätä muutama komento jotta Executive toimisi. Executive käynnistyy kun käynnistät koneesi.\n\n")
  108. (set #installing_key "Asenna avainta")
  109. (set #doc_format "Missä muodossa haluat oheet?")
  110. (set #df_1 "AmigaGuide")
  111. (set #df_2 "ASCII teksti")
  112. (set #doc_formathelp "Ohjeet voidaan asentaa neljässä eri formaatissa. AmigaGuide-formaatti mahdollistaa ohjetiedoston aukaisemisen suoraan Executiven ohjelmista.")
  113. (set #conv_doc "Muunnan ohjeet")
  114. (set #uninstall "\n\n\n\nJos haluat poistaa Executiven kovalevyltäsi, käytä mukana tulevaa UnInstall-ohjelmaa,\n se poistaa Executiven turvallisesti. Mitään muita tiedostoja ei tuhota.\n\n\n\n")
  115. (set #thanks "\nKiitos kun asensit Executiven.\n\nKäynnistä nyt koneesi uudelleen niin Executive käynnistyy.\n\nLUE ohjeet, ainakin \"Common problems\"-osa.")
  116. (set #remcmds "\nKomennot jotka lisättiin \"S:User-Startup\" tiedostoon poistetaan.")
  117. (set #remhelp "Asennusohjelma on asentanut muutamia komentoja \"S:User-Startup\" tiedostoon. Nämä komennot poistetaan nyt, mitään muuta ei tuhota tai muuteta.\n\n")
  118. (set #userstartup "; Executiven asennus keskeytettiin.")
  119. (set #abort_remove "Asennus keskeytetty. Haluatko poistaa jo asennetut tiedostot?\n\nJos olit päivittämässä aikaisempaa Executiven versiota, joitain tiedostoja on jo mahdollisesti tuhottu, joten Executive pitää asentaa uudelleen.\n\n")
  120. (set #abort_rem_yes "Kyllä, poista")
  121. (set #abort_rem_no "En")
  122. (set #doc_askansi "\nHaluatko käyttää ANSI-muotoilukoodeja ASCII ohjeissa?")
  123. (set #ansi_yes "Kyllä")
  124. (set #ansi_no "Ei")
  125. )) ; end of if statement
  126.  
  127. ;
  128. ; ===== Français
  129. ;
  130. ;(if (= @language "Français")
  131. ;(
  132. ;)) ; end of if statement
  133.  
  134. ;
  135. ; ===== Deutsch
  136. ;
  137. ;(if (= @language "Deutsch")
  138. ;(
  139. ;)) ; end of if statement
  140.  
  141. ;
  142. ; ===== Norsk
  143. ;
  144. ;(if (= @language "Norsk")
  145. ;(
  146. ;)) ; end of if statement
  147.  
  148. ;
  149. ; ===== Nederlands
  150. ;
  151. (if (= @language "Nederlands")
  152. (
  153. (set #kickstart37 "Sorry, maar Executive heeft AmigaDOS 2.04 of hoger nodig.")
  154. ; This is shown when you press help when the Installer window opens.
  155. ; Make sure the strings are centered.
  156. (set #welcome " Welkom bij de Executive installatie\n\n Copyright © 1995 Petri Nordlund.\n Alle rechten behouden.\n\n Nederlandse vertaling door Pascal Eeftinck.\n")
  157. (set #begin_install "\nU staat op het punt Executive te installeren. Als u hulp nodig heeft, druk dan op de HELP-knop.\n\nU kunt ten alle tijde de installatie afbreken en reeds geïnstalleerde delen zullen veilig verwijderd worden.\n\nAls u besluit Executive te verwijderen, er is een programma hiervoor beschikbaar, dus gaat u gerust uw gang, ik ben er zeker van dat het u zult bevallen!")
  158. (set #dir_prompt "Waar moet Executive geïnstalleerd worden? Een lade genaamd `Executive' zal daar aangemaakt worden. Als u een nieuwere versie installeert, kies dan de lade die de Executive lade bevat.")
  159. (set #dir_help "Een goede plaats om Executive te installeren is uw WORK: partitie, of als die niet beschikbaar is, de SYS: partitie.\n\nAls u een nieuwere versie installeert, kies dan voor de lade die de Executive lade bevat, niet de Executive lade zelf. Bijvoorbeeld WORK: maar niet WORK:Executive/.\n\n")
  160. (set #extract_progs "Uitpakken van de programma's")
  161. (set #create_020 "Uitpakken van de 68020+ versies van de programma's")
  162. (set #which-language "Welke talen moeten geïnstalleerd worden?\n\nEngels is reeds ingebouwd.")
  163. (set #which-help "Een locale catalog zal geïnstalleerd worden op uw systeem, en alle programma's die behoren tot Executive zullen de taal gebruiken die u kiest. Als Engels uw moedertaal is, dan hoeft u geen locale bestanden te installeren omdat Engels ingebouwd is in de programma's.\n\n")
  164. (set #installing_docs "Installeren van de documentatie")
  165. (set #install_sysinfo "\nWilt u de sysinfo.library ontwikkelaars-informatie installeren?\n\nSysinfo is een shared library die toegang biedt voor derden tot de mogelijkheden van Executive. Als u geen programmeur bent, dan heeft het geen zin de ontwikkelaars-informatie te installeren.")
  166. (set #sysinfo_help "Als u niet zeker weet wat sysinfo.library is, installeer deze dan niet, u heeft het waarschijnlijk niet nodig.\n\n")
  167. (set #install_yes "Ja, installeer")
  168. (set #install_no "Nee, installeer niet")
  169. (set #installing_icons "Installeren van iconen")
  170. (set #what_icons "Welk type iconen wilt u installeren?\n\nMagicWB Copyright © 1992-94 Martin Huttenloher")
  171. (set #ic_none "Geen iconen")
  172. (set #ic_nnl  "Normale Med-res  (pixel verhouding 2:1)")
  173. (set #ic_nl   "Normale Hoge-res (pixel verhouding 1:1)")
  174. (set #ic_mnl  "MagicWB Med-res  (pixel verhouding 2:1)")
  175. (set #ic_ml   "MagicWB Hoge-res (pixel verhouding 1:1)")
  176. (set #what_iconshelp "Er zijn vier verschillende stijlen van iconen beschikbaar.\n\nNormale Med-res iconen zijn bedoeld voor Workbench schermen met een grootte van 640x256 of vergelijkbaar.\n\nNormale Hoge-res iconen zijn bedoeld voor 640x512 of Workbench schermen met een vergelijkbare grootte.\n\nAls u MagicWB gebruikt kies dan voor iconen van een van de MagicWB-stijlen.\n\n")
  177. (set #addcmds "De volgende instructies zullen toegevoegd worden aan uw \"S:User-Startup\" bestand zodat uw systeem juist geconfigureerd zal staan voor het gebruik van Executive.\n\nPath %s Add\nRun <NIL: >NIL: %s/Executive")
  178. (set #addhelp "Dit zal enkele commando's toevoegen aan uw S:User-Startup bestand om een juiste operatie van Executive toe te staan. Executive zal iedere keer gestart worden wanneer u uw Amiga opnieuw opstart.\n\n")
  179. (set #installing_key "Installeren van keyfile")
  180. (set #doc_format "Kies het formaat voor de documentatie:")
  181. (set #df_1 "AmigaGuide")
  182. (set #df_2 "ASCII tekst (Geen online-hulp beschikbaar)")
  183. (set #doc_formathelp "Documentatie is beschikbaar in diverse formaten. U wilt waarschijnlijk het AmigaGuide formaat kiezen omdat dit u toestaat online help te gebruiken, beschikbaar vanuit alle Executive programma's.\n\n")
  184. (set #conv_doc "Converteren van documentatie")
  185. (set #uninstall "\n\n\n\nAls u Executive wilt verwijderen, gebruik dan het meegeleverde `uninstall' programma, het zal er voor zorgen dat er geen spoor van Executive op uw systeem wordt achtergelaten.\nBestanden die niet tot Executive behoren zullen niet verwijderd worden.\n\n\n\n")
  186. (set #thanks "\nDank u voor het installeren ven Executive.\n\nU moet nu uw systeem opnieuw opstarten om de Executive server op te starten.\n\nLeest u ALSTUBLIEFT de documentatie, ten minste het 'Common problems' gedeelte.")
  187. (set #remcmds "\nDe commando's die toegevoegd zijn aan uw \"S:User-Startup\" bestand zullen nu verwijderd worden.")
  188. (set #remhelp "Het installatie programma heeft commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze zullen nu verwijderd worden, niets anders zal gewist of gewijzigd worden.\n\n")
  189. (set #userstartup "; De Executive installatie was afgebroken.")
  190. (set #abort_remove "Installatie afgebroken. Wilt u de bestanden die geïnstalleerd zijn verwijderen?\n\nAls u een nieuwere versie van Executive installeert over een reeds bestaande, dan is de oude versie mogelijk gedeeltelijk overschreven en moet u Executive geheel opnieuw installeren.\n\n")
  191. (set #abort_rem_yes "Ja, verwijder")
  192. (set #abort_rem_no  "Nee")
  193. (set #doc_askansi "\nWilt u ANSI formaat codes in de ASCII documentatie gebruiken?")
  194. (set #ansi_yes "Ja, gebruik ANSI")
  195. (set #ansi_no "Nee, gebruik geen ANSI")
  196. )) ; end of if statement
  197.  
  198. ;
  199. ; ===== Svenska
  200. ;
  201. (if (= @language "Svenska")
  202. (
  203. (set #kickstart37 "Executive kräver minst AmigaDos 2.04.")
  204. (set #welcome "        Välkommen till installationen av Executive\n\n           Copyright © 1995 Petri Nordlund.\n                 All rights reserved.\n")
  205. (set #begin_install "\nDu kommer nu att installera Executive. Om du behöver hjälp, tryck på HJÄLP-knappen.\n\nDu kan avbryta installationen när som helst och de installerade filerna kommer att raderas.\n\nOm du bestämmer dig för att avinstallera Executive så finns ett skript ('UnInstall') tillgängligt för detta ändamål, pröva gärna detta skript, jag är säker på att du gillar det!")
  206. (set #dir_prompt "Var vill du installlera Executive? En låda kallad `Executive' kommer att skapas där. Om du uppdaterar en tidigare version, välj den låda som innehåller Executive-lådan.")
  207. (set #dir_help "En bra plats att installera Executive är din WORK:-partition, eller om den inte är tillgänglig, SYS:-partitionen.\n\nOm du uppdaterar en tidigare version, så måste du välja den låda där Executive-lådan är och inte själva Executive-lådan. Till exempel WORK: men inte WORK:Executive/.\n\n")
  208. (set #extract_progs "Packar upp program")
  209. (set #create_020 "Skapar 68020+ versioner av programmen")
  210. (set #which-language "Vilka språk skall installeras?\n\nEngelska är inbyggt.")
  211. (set #which-help "En katalogfil kommer att installeras i ditt system och alla Executives program kommer att använda det språk du valt. Om engelska är ditt modersmål, eller om du föredrar engelska, behöver du inte installera någon katalogfil eftersom engelska är inbyggt i programmet\n\n")
  212. (set #installing_docs "Installerar dokumentation")
  213. (set #install_sysinfo "\nVill du installera utvecklarmaterialet för sysinfo.library?\n\nSysinfo är ett sk 'shared library' som erbjuder tredjepartsprogrammerare tillgång till Executives funktioner. Om du inte är en programmerare behöver du inte installera utvecklarmaterialet.")
  214. (set #sysinfo_help "Om du inte vet vad sysinfo.library är, installera det inte, du behöver det antagligen inte.\n\n")
  215. (set #install_yes "Ja, installera")
  216. (set #install_no "Nej, installera inte")
  217. (set #installing_icons "Installera ikoner")
  218. (set #what_icons "Vilken sorts ikoner vill du installera?\n\nMagicWB Copyright © 1992-94 Martin Huttenloher")
  219. (set #ic_none "Inga ikoner")
  220. (set #ic_nnl "Normal  med-res (pixelaspekt 2:1)")
  221. (set #ic_nl  "Normal  hi-res  (pixelaspekt 1:1)")
  222. (set #ic_mnl "MagicWB med-res (pixelaspekt 2:1)")
  223. (set #ic_ml  "MagicWB hi-res  (pixelaspekt 1:1)")
  224. (set #what_iconshelp "Det finns fyra olika sorters ikoner tillgängliga.\n\nNormala med-res ikoner är gjorda för Workbenchskärmar med storleken 640x256 eller liknande.\n\nNormala hi-res ikoner är gjorda för 640x512 eller likande storlekar på Workbenchskärmen.\n\nOm du använder MagicWB så kan du välja en av de ikonuppsättningarna.\n\n")
  225. (set #addcmds "Följande instruktioner kommer att läggas till din \"S:User-Startup\"-fil så att ditt system blir rätt konfigurerat för att använda Executive.\n\nPath %s Add\nRun <NIL: >NIL: %s/Executive")
  226. (set #addhelp "Detta lägger till några kommandon till din S:User-Startup så att Executive garanterat fungerar korrekt. Executive kommer att startas varje gång du startar din Amiga.\n\n")
  227. (set #installing_key "Installerar nyckelfil ('keyfile')")
  228. (set #doc_format "I vilket format vill du ha dokumentationen?")
  229. (set #df_1 "AmigaGuide")
  230. (set #df_2 "ASCII text (Ingen direkthjälp tillgänglig)")
  231. (set #doc_formathelp "Dokumentationen finns i flera olika format. Du vill antagligen välja AmigaGuide-formatet, eftersom det låter dig använda hjälp-funktionen från alla Executives program.\n\n")
  232. (set #conv_doc "Konverterar dokumentation")
  233. (set #uninstall "\n\n\n\nOm du vill avinstallera Executive, använd avinstalleringsprogrammet,\ndet garanterar att inga spår av Executive finns kvar i ditt system. Filer\nsom inte hör till Executive raderas inte.\n\n\n\n")
  234. (set #thanks "\nTack för att du installerade Executive.\n\nNu måste du starta om datorn för att starta Executive-servern.\n\nSnälla, LÄS dokumentationen.")
  235. (set #remcmds "\nKommandon adderade till \"S:User-Startup\"-filen kommer nu att raderas.")
  236. (set #remhelp "Installationsprogrammet har adderat kommandon till \"S:User-Startup\"-filen. Dessa kommer nu att tas bort, inget annat kommer att raderas eller ändras.\n\n")
  237. (set #userstartup "; Executiveinstallationen avbröts.")
  238. (set #abort_remove "Installationen avbröts. Vill du radera filerna som var installerade?\n\nOm du uppdaterar en befintlig version av Executive, så kan den redan vara överskriven, så du måste ominstallera den.\n\n")
  239. (set #abort_rem_yes "Ja, radera")
  240. (set #abort_rem_no "Nej")
  241. (set #doc_askansi "\nVill du använda ANSI-formateringskoder i ASCII-dokumentationen?")
  242. (set #ansi_yes "Ja, använd ANSI")
  243. (set #ansi_no "Nej, använd inte ANSI")
  244. )) ; end of if statement
  245.  
  246. ;
  247. ; ===== Dansk
  248. ;
  249. ;(if (= @language "Dansk")
  250. ;(
  251. ;)) ; end of if statement
  252.  
  253. ;
  254. ; ===== Español
  255. ;
  256. ;(if (= @language "Español")
  257. ;(
  258. ;)) ; end of if statement
  259.  
  260. ;
  261. ; ===== Italiano
  262. ;
  263. ;(if (= @language "Italiano")
  264. ;(
  265. ;)) ; end of if statement
  266.  
  267. ;
  268. ; ===== Português
  269. ;
  270. (if (= @language "Português")
  271. (
  272. (set #kickstart37 "Peço desculpa mas o Executive necessita da versão 2.04 do AmigaDOS.")
  273. (set #welcome "        Bemvindo à instalação do Executive\n\n          Copyright ©1995 Petri Nordlund.\n                 Todos os direitos reservados.\n")
  274. (set #begin_install "\nVocê está prestes a instalar o Executive. Se necessitar de alguma ajuda, carregue no botão de HELP.\n\nPode sempre terminar a instalação que as partes instaladas serão apagadas seguramente.\n\nSe decidir desinstalar Executive, existe um programa próprio para esse propósito, assim vá em frente e tente-o, tenho a certeza que irá gostar!")
  275. (set #dir_prompt "Onde deverá o Executive ser instalado? Uma gaveta chamada `Executive' será criada aí. Se está fazendo o `update' de uma versão anterior, escolha a directoria contendo a gaveta do Executive.")
  276. (set #dir_help "Um bom local para instalar Executive é na sua partição WORK: ou caso não se encontre disponível, a partição SYS:.\n\nSe está fazendo o `update' de uma versão anterior, tem de escolher a directoria contendo a gaveta do Executive, e não a gaveta Executive. Por exemplo WORK: mas não WORK:Executive/.\n\n")
  277. (set #extract_progs "Extraindo programas")
  278. (set #create_020 "Criando as versões 68020+ dos programas")
  279. (set #which-language "Quais linguagens devem ser instaladas?\n\nInglês é interna ao programa.")
  280. (set #which-help "Um catalogo local será instalado no seu sistema e todos os programas do Executive usarão a linguagem por si escolhida. Se Inglês é a sua lingua nativa, não necessita de instalar nenhum catalogo local devido ao Inglês ser interno aos programas.\n\n")
  281. (set #installing_docs "Instalando documentação")
  282. (set #install_sysinfo "\nQuer instalar o material de desenvolvimento sysinfo.library?\n\nSysinfo é uma livraria partilhada que disponibiliza acesso a facilidades do Executive a outros programadores. Se não é um programador, então não necessita de instalar o material de desenvolvimento.")
  283. (set #sysinfo_help "Se não tem a certeza o que a sysinfo.library é, então não a instale, provavelmente não a necessitará.\n\n")
  284. (set #install_yes "Sim, fazer instalação")
  285. (set #install_no "Não fazer instalação")
  286. (set #installing_icons "Instalando icones")
  287. (set #what_icons "Que tipo de icones quer instalar?\n\nMagicWB Copyright © 1992-94 Martin Huttenloher")
  288. (set #ic_none "Não quero icones")
  289. (set #ic_nnl "Normais resolução média (aspecto 2:1)")
  290. (set #ic_nl  "Normais resolução alta  (aspecto 1:1)")
  291. (set #ic_mnl "MagicWB resolução média (aspecto 2:1)")
  292. (set #ic_ml  "MagicWB resolução alta  (aspecto 1:1)")
  293. (set #what_iconshelp "Existem quatro estilos diferentes de icones possiveis.\n\nNormais resolução média são supostos para Ecrãs de Workbench com o tamanho 640x256 ou similar.\n\nNormais resolução alta são supostos para 640x512 ou similar.\n\nSe está usando o MagicWB escolha um dos estilos MagicWB.\n\n")
  294. (set #addcmds "As seguintes instruções serão adicionadas ao seu ficheiro \"S:User-Startup\" para que o sistema esteja configurado própriamente para usar o Executive.\n\nPath %s Add\nRun <NIL: >NIL: %s/Executive")
  295. (set #addhelp "Isto adicionará alguns comandos ao seu ficheiro S:User-Startup para correcta operação do Executive. Executive será corrido cada vez que ligue o seu Amiga.\n\n")
  296. (set #installing_key "Instalando keyfile")
  297. (set #doc_format "Que formato quer usar para documentação?")
  298. (set #df_1 "AmigaGuide V34 (OS 2.0,2.1)")
  299. (set #df_2 "AmigaGuide V39 (OS 3.0+)")
  300. (set #df_3 "texto ASCII (sem ajuda online)")
  301. (set #df_4 "texto ANSI  (sem ajuda online)")
  302. (set #doc_formathelp "A documentação é disponivel em formatos diferentes. Você irá querer provavelmente o formato AmigaGuide porque deixa-o usar o ajuda online acessivel de todos os programas Executive. Uma das versões AmigaGuide foi escolhida pelo script de instalação como a por omissão e é provavelmente a que é melhor para o seu Amiga.\n\n")
  303. (set #conv_doc "Convertendo documentação")
  304. (set #uninstall "\n\n\n\nSe quer desinstalar o Executive, use o programa de desinstalação que vem com o Executive,\nele fará com muita certeza que nenhum traço do Executive é deixado no seu sistema. Ficheiros\nque não façam parte do Executive não serão apagados.\n\n\n\n")
  305. (set #thanks "\nObrigado por ter instalado o Executive.\n\nAgora tem de fazer reboot á máquina para começar o servidor Executive.\n\nPOR FAVOR leia a documentação.")
  306. (set #remcmds "\nComandos adicionados ao seu ficheiro \"S:User-Startup\" serão agora removidos.")
  307. (set #remhelp "O programa de instalação adicionou comandos ao seu ficheiro \"S:User-Startup\". Esses irão agora ser removidos e nada mais será apagados ou modificado.\n\n")
  308. (set #userstartup "; Instalação do Executive foi terminada.")
  309. (set #abort_remove "Instalação terminada. Quer apagar os ficheiros que foram instalados?\n\nSe está fazendo o `update' de uma versão existente do Executive, pode já ter sido re-escrita, portanto terá de reinstala-lo.\n\n")
  310. (set #abort_rem_yes "Sim, remover")
  311. (set #abort_rem_no "Não remover")
  312. )) ; end of if statement
  313.  
  314.  
  315. ; =======================================================================
  316. ;   Initialization
  317. ; =======================================================================
  318.  
  319. ; ===== Make sure that we are running under 2.04 or better
  320. (if (< OSVersion 37)
  321.     (abort #kickstart37)
  322. )
  323.  
  324. ; ===== Set up an error cleanup routine
  325. (onerror
  326.     (delete "RAM:tool")
  327.     (delete "RAM:UnLZX")
  328.     (if (exists "ExDest:" (noreq))
  329.     (
  330.         (if (askbool
  331.             (prompt #abort_remove)
  332.             (help "")
  333.             (default 0)
  334.             (choices #abort_rem_yes #abort_rem_no))
  335.             (
  336.                 (run "delete ExDest:Executive ALL FORCE QUIET")
  337.                 (delete "ExDest:Executive.info")
  338.  
  339.                 (if (exists "LOCALE:" (noreq))
  340.                 (
  341.                     (delete "LOCALE:Catalogs/Suomi/Executive.catalog")
  342.                     (delete "LOCALE:Catalogs/Français/Executive.catalog")
  343.                     (delete "LOCALE:Catalogs/Deutsch/Executive.catalog")
  344.                     (delete "LOCALE:Catalogs/Norsk/Executive.catalog")
  345.                     (delete "LOCALE:Catalogs/Nederlands/Executive.catalog")
  346.                     (delete "LOCALE:Catalogs/Svenska/Executive.catalog")
  347.                     (delete "LOCALE:Catalogs/Dansk/Executive.catalog")
  348.                     (delete "LOCALE:Catalogs/Español/Executive.catalog")
  349.                     (delete "LOCALE:Catalogs/Italiano/Executive.catalog")
  350.                     (delete "LOCALE:Catalogs/Português/Executive.catalog")
  351.                 )) ; end of if statement
  352.  
  353.                 (if (= startup_added TRUE)
  354.                     (startup "Executive"
  355.                         (prompt (#remcmds))
  356.                         (help #remhelp @startup-help)
  357.                         (command #userstartup)
  358.                     )
  359.                 ) ;  end of if statement
  360.  
  361.             )
  362.         ) ; end of if statement
  363.  
  364.         (makeassign "ExSrc" (safe))
  365.         (makeassign "ExDest" (safe))
  366.     )) ; end of if statement
  367. ) ; end of onerror statement
  368.  
  369. (welcome #welcome)
  370.  
  371. ; =======================================================================
  372. ;   Begin installation
  373. ; =======================================================================
  374.  
  375. (complete 0)
  376.  
  377. (message #begin_install)
  378.  
  379. ; ===== cancel the assign in case of installation restart
  380. (makeassign "ExSrc" (safe))
  381. (makeassign "ExDest" (safe))
  382.  
  383. (transcript #uninstall)
  384.  
  385. (set ExDest
  386.     (tackon
  387.         (askdir
  388.             (prompt #dir_prompt)
  389.             (help #dir_help @askdir-help)
  390.             (default @default-dest)
  391.         )
  392.         "Executive"
  393.     )
  394. )
  395.  
  396. (complete 2)
  397.  
  398. (makeassign "ExDest"
  399.     (pathonly ExDest)
  400.     (safe)
  401. )
  402.  
  403. (if (exists "ExDest:Executive")
  404.     (set update TRUE)
  405.     (makedir "ExDest:Executive")
  406. )
  407.  
  408. ; ===== Tell installer where Executive will be installed
  409. (set @default-dest ExDest)
  410.  
  411. ; ===== Copy /c/tool and /c/UnLZX to RAM:
  412. (run "copy /c/tool RAM:")
  413. (run "copy /c/UnLZX RAM:")
  414.  
  415. (complete 5)
  416.  
  417. ; ===== Extract programs
  418. (working #extract_progs)
  419. (run "RAM:UnLZX >NIL: <NIL: x -m -x /bin.lzx ExDest:Executive/")
  420.  
  421. ; ===== Write default preferences
  422. (if (not (exists "ExDest:Executive/Executive.prefs" (noreq)))
  423.     (if (not (exists "S:Executive.prefs" (noreq)))
  424.         (if (not (exists "ENV:Executive.prefs" (noreq)))
  425.             (
  426.                 (run ("ExDest:Executive/ExecutivePrefs WRITEDEFAULTS=%s" ExDest))
  427.                 (set prefs_written TRUE)
  428.             )
  429.         ) ; end of if statement
  430.     ) ; end of if statement
  431. ) ; end of if statement
  432.  
  433. (if (= prefs_written FALSE)
  434.     (run "ExDest:Executive/ExecutivePrefs UPDATEPREFS")
  435. ) ; end of if statement
  436.  
  437. (complete 15)
  438.  
  439. ; ===== Create 68020+ versions of programs from diffs
  440. (if (not (= cpu "68000"))
  441.     (if (not (= cpu "68010"))
  442.     (
  443.         (working #create_020)
  444.         (run "RAM:UnLZX >NIL: <NIL: x -m -x /bin020.lzx ExDest:Executive/")
  445.         (set n 0)
  446.  
  447.         (while (set f (select n "acct" "ALoad" "ALoad3D" "ALoad_MUI" "Commander" "Commander_MUI" "ctp" "Executive" "ExecutivePrefs" "ExecutivePrefs_MUI" "kill" "lastcomm" "Meter" "nice" "ps" "pstree" "renice" "sa" "stat" "timer" "Top" "uptime" ""))
  448.         (    (set n (+ n 1))
  449.             (complete (+ n 15))
  450.             (working ("%s\n\n%s" #create_020 f))
  451.             (run ("/c/ExPatch ExDest:Executive/%s RAM:tmp.bin ExDest:Executive/%s.pch" f f))
  452.             (run ("copy RAM:tmp.bin ExDest:Executive/%s" f))
  453.             (protect ("ExDest:Executive/%s" f) "+rwed")
  454.         )) ; end of while statement
  455.  
  456.         (delete "RAM:tmp.bin")
  457.         (run "delete ExDest:Executive/#?.pch")
  458.     )) ; end of if statement
  459. )
  460.  
  461. (complete 45)
  462.  
  463. ; ===== Install locale catalogs
  464. (if (exists "LOCALE:" (noreq))
  465. (
  466.     (if (>= WBVersion 38)
  467.     (
  468.         ; Default language is English
  469.         (set lang "English")
  470.         (if (= @language "Suomi")
  471.             (set lang "Suomi") )
  472.         (if (= @language "Français")
  473.             (set lang "Français") )
  474.         (if (= @language "Deutsch")
  475.             (set lang "Deutsch") )
  476.         (if (= @language "Norsk")
  477.             (set lang "Norsk") )
  478.         (if (= @language "Nederlands")
  479.             (set lang "Nederlands") )
  480.         (if (= @language "Svenska")
  481.             (set lang "Svenska") )
  482.         (if (= @language "Dansk")
  483.             (set lang "Dansk") )
  484.         (if (= @language "Español")
  485.             (set lang "Español") )
  486.         (if (= @language "Italiano")
  487.             (set lang "Italiano") )
  488.         (if (= @language "Português")
  489.             (set lang "Português") )
  490.  
  491.         (makedir "RAM:extmp")
  492.         (run "RAM:UnLZX <NIL: >NIL: x -m -x /catalogs.lzx RAM:extmp/")
  493.  
  494.         (if (= lang "English")
  495.         (
  496.             ; Ask language
  497.             (set sel_lang
  498.                 (askoptions
  499.                     (prompt #which-language)
  500.                     (help #which-help @askoptions-help)
  501.                     (choices
  502.                         "Suomi"
  503. ;                        "Français"
  504. ;                        "Deutsch"
  505. ;                        "Norsk"
  506.                         "Nederlands"
  507.                         "Svenska"
  508. ;                        "Dansk"
  509. ;                        "Español"
  510. ;                        "Italiano"
  511.                         "Português"
  512.                     )
  513.                     (default 0)
  514.                 )
  515.             )
  516.             (set n 0)
  517.  
  518.             (while
  519.                 (set language
  520.                     (select n
  521.                         "Suomi"
  522. ;                        "Français"
  523. ;                        "Deutsch"
  524. ;                        "Norsk"
  525.                         "Nederlands"
  526.                         "Svenska"
  527. ;                        "Dansk"
  528. ;                        "Español"
  529. ;                        "Italiano"
  530.                         "Português"
  531.                                 ""
  532.                     )
  533.                 )
  534.                 ((if (IN sel_lang n)
  535.                 (
  536.                     (
  537.                         (makedir (cat "LOCALE:Catalogs/" language))
  538.                         (copyfiles
  539.                             (source (cat "RAM:extmp/" language))
  540.                             (dest ("LOCALE:Catalogs/%s" language))
  541.                             (newname "Executive.catalog")
  542.                         )
  543.                     )
  544.                 )) ; end of if statement
  545.  
  546.                 (set n (+ n 1))
  547.             )) ; end of while statement
  548.         )
  549.         (
  550.             ; Language is known, just install
  551.             (makedir (cat "LOCALE:Catalogs/" lang))
  552.             (copyfiles
  553.                 (source (cat "RAM:extmp/" lang))
  554.                 (dest ("LOCALE:Catalogs/%s" lang))
  555.                 (newname "Executive.catalog")
  556.             )
  557.         )) ; end of if statement
  558.  
  559.     (run "delete RAM:extmp ALL QUIET")
  560.  
  561.     )) ; end of if statement
  562. )) ; end of if statement
  563.  
  564. (complete 55)
  565.  
  566. ; ===== Install documentation
  567. (
  568.     (working #installing_docs)
  569.     (run ("RAM:UnLZX <NIL: >NIL: x -m -x /doc.lzx %s RAM:" English))
  570.  
  571.     (if (= AGVersion 0)
  572.         ; ASCII
  573.         (set gdefault 2)
  574.         ; AmigaGuide
  575.         (set gdefault 1)
  576.     )
  577.  
  578.     (set asciitype 0)
  579.  
  580.     (if (= @user-level 2)
  581.         (
  582.             (set gtype
  583.                 (askoptions
  584.                     (prompt #doc_format)
  585.                     (help #doc_formathelp @askchoice-help)
  586.                     (choices
  587.                         #df_1
  588.                         #df_2
  589.                     )
  590.                     (default gdefault)
  591.                 )
  592.             )
  593.             (if (IN gtype 1)
  594.                 (if (askbool
  595.                     (prompt #doc_askansi)
  596.                     (default 0)
  597.                     (help "")
  598.                     (choices #ansi_yes #ansi_no))
  599.                     (
  600.                         ; ANSI
  601.                         (set asciitype 1)
  602.                     )
  603.                 ) ; end of if statement
  604.             ) ; end of if statement
  605.         )
  606.         (
  607.             ; user is not expert, don't ask anything
  608.             (set gtype gdefault)
  609.         )
  610.     ) ; end of if statement
  611.  
  612.     (working #conv_doc)
  613.  
  614.     (if (IN gtype 0)
  615.         (if (>= AGVersion 39)
  616.             (run "copy RAM:English ExDest:Executive/Executive.guide")
  617.             (run "RAM:tool FROM=RAM:English TO=ExDest:Executive/Executive.guide STRIPGUIDE")
  618.         )
  619.     )
  620.     (if (IN gtype 1)
  621.         (if (= asciitype 0)
  622.             (run "RAM:tool FROM=RAM:English TO=ExDest:Executive/Executive.doc GUIDETOTEXT")
  623.             (run "RAM:tool FROM=RAM:English TO=ExDest:Executive/Executive.doc GUIDETOTEXT ANSI")
  624.         ) ; end of if statement
  625.     )
  626.     (delete "RAM:English")
  627.  
  628.     ; gtype is used later in this file also, see icon installation
  629. )
  630.  
  631. (complete 65)
  632.  
  633. (set sysinfo_installed FALSE)
  634.  
  635. ; ===== Install Sysinfo developer files
  636. (if (= @user-level 2)
  637.     (if (askbool
  638.         (prompt #install_sysinfo)
  639.         (help #sysinfo_help)
  640.         (default 0)
  641.         (choices #install_yes #install_no))
  642.         (
  643.             ; Install
  644.             (set sysinfo_installed TRUE)
  645.             (makedir "ExDest:Executive/sysinfo")
  646.             (run "RAM:UnLZX <NIL: >NIL: x -m -x /sysinfo.lzx ExDest:Executive/sysinfo/")
  647.         )
  648.     ) ; end of if statement
  649. ) ; end of if statement
  650.  
  651. (complete 70)
  652.  
  653. ; ===== Install RegForms
  654. (makedir "ExDest:Executive/Register")
  655. (run "RAM:UnLZX <NIL: >NIL: x -m -x /Register.lzx ExDest:Executive/Register/")
  656.  
  657. (complete 80)
  658.  
  659. ; ==== Install icons
  660. (set itype
  661.     (askchoice
  662.         (prompt #what_icons)
  663.         (help #what_iconshelp @askchoice-help)
  664.         (choices
  665.             #ic_none
  666.             #ic_nnl
  667.             #ic_nl
  668.             #ic_mnl
  669.             #ic_ml
  670.         )
  671.         (default 1)
  672.     )
  673. )
  674.  
  675. (if (NOT (= itype 0))
  676. (
  677.     (working #installing_icons)
  678.  
  679.     (if (= itype 1)
  680.         (run "RAM:UnLZX <NIL: >NIL: x -m -x /icons_nnl.lzx ExDest:")
  681.     ) ; end of if statement
  682.     (if (= itype 2)
  683.         (run "RAM:UnLZX <NIL: >NIL: x -m -x /icons_nl.lzx ExDest:")
  684.     ) ; end of if statement
  685.     (if (= itype 3)
  686.         (run "RAM:UnLZX <NIL: >NIL: x -m -x /icons_mnl.lzx ExDest:")
  687.     ) ; end of if statement
  688.     (if (= itype 4)
  689.         (run "RAM:UnLZX <NIL: >NIL: x -m -x /icons_ml.lzx ExDest:")
  690.     ) ; end of if statement
  691.  
  692.     ; Create genies
  693.     (run "RAM:tool ICON=ExDest:Executive/Genies/Genie.info ICONTO=\"ExDest:Executive/Genies/Scheduled tasks\" MODICON DEFTOOL=/ps X=40 Y=10 TOOLTYPE=SCHEDULED")
  694.     (run "RAM:tool ICON=ExDest:Executive/Genies/Genie.info ICONTO=\"ExDest:Executive/Genies/Merge accounting\" MODICON DEFTOOL=/sa X=160 Y=10 TOOLTYPE=MERGE")
  695.     (run "RAM:tool ICON=ExDest:Executive/Genies/Genie.info ICONTO=\"ExDest:Executive/Genies/User accounting\" MODICON DEFTOOL=/sa X=280 Y=10 TOOLTYPE=USER")
  696.  
  697.     (delete "ExDest:Executive/Genies/Genie.info")
  698.  
  699.     (if (>= WBVersion 39)
  700.     (
  701.         ; 3.0+
  702.         (run "RAM:tool ICON=ExDest:Executive/Executive.guide.info CHANGETOOL DEFTOOL=Multiview")
  703.         (run "RAM:tool ICON=ExDest:Executive/Executive.doc.info CHANGETOOL DEFTOOL=Multiview")
  704.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/README.Executive.info CHANGETOOL DEFTOOL=Multiview")
  705.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/README.First!.info CHANGETOOL DEFTOOL=Multiview")
  706.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/sysinfo.doc.info CHANGETOOL DEFTOOL=Multiview")
  707.     )
  708.     (
  709.         ; 2.x
  710.         (run "RAM:tool ICON=ExDest:Executive/Executive.guide.info CHANGETOOL DEFTOOL=AmigaGuide")
  711.         (run "RAM:tool ICON=ExDest:Executive/Executive.doc.info CHANGETOOL DEFTOOL=more")
  712.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/README.Executive.info CHANGETOOL DEFTOOL=more")
  713.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/README.First!.info CHANGETOOL DEFTOOL=more")
  714.         (run "RAM:tool ICON=ExDest:Executive/sysinfo/sysinfo.doc.info CHANGETOOL DEFTOOL=more")
  715.     )) ; end of if statement
  716.  
  717.     ; Add some tooltypes and default tools
  718.     (run "RAM:tool ICON=ExDest:Executive/Register/Register.info CHANGETOOL DEFTOOL=rx")
  719.     (run "RAM:tool ICON=ExDest:Executive/Register/Register.info ADDTT TOOLTYPE=\"CONSOLE=CON:0/0/640/200/Register/CLOSE\"")
  720.     (run "RAM:tool ICON=ExDest:Executive/Register/Register.info ADDTT TOOLTYPE=\"CMD=Register.rexx\"")
  721.     (run "RAM:tool ICON=ExDest:Executive/Register/RegForm_FinalWriter.info CHANGETOOL DEFTOOL=FinalWriter")
  722.     (run "RAM:tool ICON=ExDest:Executive/Register/RegForm_DVI.info CHANGETOOL DEFTOOL=ShowDVI")
  723.     (run "RAM:tool ICON=ExDest:Executive/Register/RegForm_IFF.info CHANGETOOL DEFTOOL=Display")
  724.     (run "RAM:tool ICON=ExDest:Executive/Register/RegForm_Ascii.info CHANGETOOL DEFTOOL=more")
  725.     (run "RAM:tool ICON=ExDest:Executive/UnInstall.info ADDTT TOOLTYPE=\"DEFUSER=Expert\"")
  726.  
  727.     (if (NOT (IN gtype 0))
  728.         (delete "ExDest:Executive/Executive.guide.info")
  729.     ) ; end of if statement
  730.  
  731.     (if (NOT (IN gtype 1))
  732.         (delete "ExDest:Executive/Executive.doc.info")
  733.     ) ; end of if statement
  734.  
  735.     (if (= sysinfo_installed FALSE)
  736.     (
  737.         (delete "ExDest:Executive/sysinfo.info")
  738.         (run "delete ExDest:Executive/sysinfo ALL QUIET")
  739.     )) ; end of if statement
  740. )) ; end of if statement
  741.  
  742. ; ===== User doesn't want our nice icons, so let's delete them. :)
  743. (if (= itype 0)
  744. (
  745.     (run "delete ExDest:Executive/sysinfo/#?.info")
  746.     (run "delete ExDest:Executive/Register/#?.info")
  747. )) ; end of if statement
  748.  
  749. (complete 90)
  750.  
  751. ; ===== Add commands to s:user-startup
  752. (startup "Executive"
  753.     (prompt (#addcmds ExDest ExDest))
  754.     (help #addhelp @startup-help)
  755.     (command ("PATH %s Add\n" ExDest))
  756.     (command ("Run <NIL: >NIL: %s/Executive\n" ExDest))
  757. )
  758. (set startup_added TRUE)
  759.  
  760. (complete 95)
  761.  
  762. ; ===== Install keyfile
  763. (if (exists ("/Executive.key") (noreq))
  764. (
  765.     (working #installing_key)
  766.     (run "copy /Executive.key ExDest:Executive/")
  767. )) ; end of if statement
  768.  
  769. (complete 98)
  770.  
  771. ; ===== Copy UnInstallation files
  772. (run "copy UnInstall ExDest:Executive/")
  773. (run "copy UnInstall.Executive ExDest:Executive/")
  774.  
  775. ; =======================================================================
  776. ;   Cleanup
  777. ; =======================================================================
  778.  
  779. (complete 100)
  780.  
  781. (delete "RAM:tool")
  782. (delete "RAM:UnLZX")
  783.  
  784. (makeassign "ExSrc" (safe))
  785. (makeassign "ExDest" (safe))
  786.  
  787. (exit #thanks)
  788.